? That one doesn't do all three, it skips out of the "for" loop as soon as it gets a result..

But thanks for the kick in the right direction with your first reply.. it got me scouring my copy of "Programming Perl". I think the closest I'm going to get to what I'm after is:

 #!/usr/bin/perl
use strict;

my @results;

(@results = blah('"or1"'))
  || (@results = blah1('"or2"'))
  || (@results = blah('"or3"'));

print join(':',@results)."\n";

sub blah{
  my ($call) = @_;
  print "$call ";
  print wantarray ? "wants array" : "wants string";
  print "\n";
  return;
}

sub blah1{
  my ($call) = @_;
  print "$call ";
  print wantarray ? "wants array" : "wants string";
  print "\n";
  return (1,2,3);
}

__END__

]$ perl wantarr.pl
"or1" wants array
"or2" wants array
1:2:3
[download]

(I extended the test a lil to make sure it was doing what I wanted..)

cheers,

J