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

##</code><code>##


sub from_cache {
    my $ticker = shift;
    my $ref = $data_cache{$ticker};
    return [ map [unpack("A10FFFFL", $_)], @$ref ];
}