#! /usr/bin/perl

my $VAR1 = [
      {
        '201' => 'i',
        '101' => 'f',
        '41' => 't',
      }
];

print +(%{$VAR1->[0]})[4];