my %cache3;
sub to_cache3 {
    my( $ticker, $data ) = @_;
    $cache3{$ticker} = pack "(A10FFFFL)*", map @$_, @$data;
}

sub from_cache3 {
    my $ticker = shift;
    return [ map [ unpack "A10FFFFL", $_ ], $cache3{$ticker} =~ /.{46}/sg ];
}