my $arrayref = ["A", "B"]; print join "\n", @$arrayref;