#23456789_123456789_123456789_12345
perl -le'$x=@_=a..j;print$x--for@_'

sub f {
#23456789_123456789_12345678
$x=@_=a..j;print$x--.$/for@_
}