#!/usr/bin/perl

use strict;
use warnings;

sub gimme_first ($) {$_[0]->[0]}

my $a = [1, 2, 3];

print gimme_first $a, "\n";
print gimme_first "$a", "\n";