$ perl -le'
use warnings;
use strict;
my %x = qw/abcd efgh ijkl mnop/;
substr $_, 0, 2, "" for %x;
print for %x;
'
ijkl
op
abcd
gh