my $file = 'bla.txt','blubb.xls';
open (my $FH, '<',$file);