#!/usr/bin/perl -lw
use strict;

my %foo = (0 => 0, 1 => 1, 2 => 2);

$_++ for values %foo;

print "$_ => $foo{$_}" for sort keys %foo;