Select Code to Download

my $decimal = '1.2foo';
  $decimal = to_decimal($decimal) unless is_decimal($decimal);

#!/usr/bin/perl
    use strict;
...
    @avgsHash{ @cols } = @avgs;  # uses a hash slice to populate %avgs
+Hash
    print "Col,Avg\n";
    printf("%s,%f\n", $_, $avgsHash{$_}) for @cols;