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

sub something
{
    print "\'$0\' blabla \'$1\' blablabla \'$2\'\n";
}

my @list; my $BUU="buu"; my $DIE="da";
push @list, [ "foo", "faa", "fee" ];
push @list, [ "boo", "bii", $BUU ];
push @list, [ "dee", "daa", $DIE ];

&something( @list->[0] );