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