Select Code to Download

sub from_cache2 {
    my $ticker = shift;
    return [ map unpack("A10FFFFL", $_), $cache2{$ticker} ];
}

sub from_cache {
...
    return [ map [unpack("A10FFFFL", $_)], @$ref ];
}