$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