$list{100} = 'dog';
$list{435} = 'cat';
$list{1040} = 'tax form';

while(($index, $element) = each %list) {
    # do stuff with $index and $element
}