sub load_sketch {
    my ($sketch_file) = @_;
    my %all_sketches = ();
    open(DAT, $sketch_file) || die("Could not open file $sketch_file!");
    my @lines = <DAT>;
    close(DAT);
    foreach (@lines) {   
        s/[\r\n\s%]+//g;
        my @all_columns = split(',', $_);
		
        $all_sketches{ uc($all_columns[1]).'STAT' } = [ @all_columns ]; # Output file will have SGWSTAT in its name
    }
    return %all_sketches;
}
1;    # tells perl that the package is ready to run