#!/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";

##</code><code>##

{   local $\ = "\n";
    print "whatever";
    imported_subroutine ();
    print "something else";
}