$a = "warewan"
$a1 = "warewan,warewan1,warewan2"
@a = ("warewan\n","warewan1","warewans","\Uwarewan","warewan12")
%a = (11,aa,22,bb,33,cc)
chop($a)
warewa
chop($a1)
warewan,warewan1,warewan
chop(@a)
warewan warewan warewan WAREWA warewan1
chop(%a)
@keys = keys(%a)
22 33 11
@values = values(%a)
b c a