sub abc {
    my ($x) = @_;

    my $z;
+--- 7 lines:  foreach my $y (@{ $x }) {

    return $z;
}