while(1){ 
    print "recving\n"; 
    my $hash = $trader->{venues}->{$venues[0]}->{ticker_tape}->recv; 
    print "recved\n"; 
    my $parsed = parse_json($hash); 
    print "\n" x 5; 
    print "$hash"; 
    print "\n" x 5; 
}