use Benchmark qw(cmpthese);
use strict;
use Tie::IxHash;
sub with_tie {

    tie my %menu, 'Tie::IxHash';    
    foreach (1..50){$menu{$_} = $_; }
}
sub without_tie{

    my %menu;    
    foreach (1..50){$menu{$_} = $_;}

}

cmpthese(200000, {
		  with_tie => \&with_tie,
		  without_tie => \&without_tie });