#!/usr/bin/perl
use Modern::Perl;
# 935351
# how can I split a string (on bar character) into an array ref for use in SQL::Abstract?


my $string = 'foo|bar|baz|bat';
my @array = split /\|/, $string;  # 1
my $arrayref = \@array;           # 2
spititout($arrayref);             # 3


sub spititout {
	my $array_ref_in_sub = shift;          # 4
	my @workingarray = @$array_ref_in_sub; # 5
	for $_(@workingarray) {                # 6
		say $_;
	}
}