#!/usr/bin/perl
use strict;
use warnings;

my ($locked_status, $expire) = @{get_user_info()}{'locked_status', 'expire'};

print "lock=$locked_status, exp=$expire.\n";

sub get_user_info {
        return {
                locked_status=>5,
                expire=>4,
                other_junk=>3
        }
}