while(chunks){
    # do something

    sub a {}
    sub b {}
}

use strict;
use File::Map qw(map_file);

map_file my $map, $ARGV[0]; # $ARGV[0] - path to your file
# Do something with $map