sub extract_file {
    my( $file_ref ) = @_;
    while( @$file_ref ) {
        my $file = shift @$fileref;
        ## Do stuff
    }
    return;
}