sub flob
{
  print "Flob";
  return 1;
}

sub adob
{
  print "adob";
  return ( 1,2,3 );
}

$a = (adob())[flob()];
print "\n$a\n";