my @a = qw (data);
foreach $aa(@a){
print $aa."\n";
}