Select Code to Download

my %rects;
my %ovals;
...
 $ovals{$num}{'num'} =  $num;
 $ovals{$num}{'mydata2'} = "some array or HoA"
}

 
my $data = $ovals{$num_from_tags}{'mydata2'}

#!/usr/bin/perl
############################################################ 
...

Gtk2->main();