#! /usr/bin/perl 
my ($eins,$zwei) = routine(); 
sub routine{
  return ('eins','zwei','drei');
}