while( @ARGV ) {
    my $file = shift;
    # ...
}