while( 1 ) {
    my $file = shift || last;
    # ...
}