#!/usr/local/bin/perl -w

use strict;
# init
use Tie::IxHash;

tie %keyvals, "Tie::IxHash";

# insert the keys
$keyvals{"First"} = "12345";
$keyvals{"Second"}= "23456";
$keyvals{"Third"} = "34567";
$keyvals{"Fourth"}= "45678";
$keyvals{"Fifth"} = "56789";

# delete first three keyvals 
delete @keyvals{ (sort keys %keyvals)[0..2] };

# print it out 
print map "$_ : $keyvals{$_}\n", keys %keyvals;