shift @filenames while ( @filenames && ! -e $filenames[0] );
die "No names matched" unless ( @filenames );