my $last_file = '';
while (<>) {
    print "$ARGV\n" if $ARGV ne $last_file;
    $last_file = $ARGV;

##</code><code>##

some_file_name
another_file_name
Use of uninitialized value in ...
different_file_name
Use of uninitialized value in ...