#!perl6
use v6;

my %hash = classify { chr $_ }, 97..102;

my Int $eins;
my Int $zwei;

sub routine ( $a, $b ) {
        ( $eins, $zwei ) = %hash{$a, $b};
        return $eins, $zwei;
}

routine( 'a', 'c' ).perl.say;

Type check failed for assignment
  in '&infix:<=>' at line 1
  in 'routine' at line 1
  in main program body at line 14:./perl.pl

my Int $eins;
my Int $zwei;

my $eins;
my $zwei;