sub printargs {
    my $i = 1;
    printf "%d %s\n", $i++, $_
        foreach @_;
}