for (@elements) {
   print "$_\t\t\tTEST\n";
}