@t = ("t\n","u\n","v","w\n");
$num = chomp(@t); print "$num";