Select Code to Download

@info = function to read input ;

...
  my $y = (split ' ', $b)[2];
  $y <=> $x;
}

$a0 = $a -> [2]

$x = (split ' ', $a)[2];