my $programm = 'C:\Programme\exiftool\exiftool.exe';
my $image = 'D:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\Beispielbilder\Wasserlilien.jpg';

for(@Zeilen)
 {
   @Zeile=split("\t", $_);
   print @Zeile[1];
   system( $program, "-country=@Zeile", $image)
 }