#!/usr/bin/perl

use warnings;
use strict;

sub foo { 
	my @water = qw(heavy normal polluted);
	@water;
}

my $bar = foo();
my @baz = foo();

print "Bar : $bar\n";
print "Baz : @baz\n";