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

sub something
{
    my ($arrayref) = @_;
    
    print $_,"\n" for @{$arrayref};
}

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] );