#!/usr/bin/perl
sub a {
    sub ($b);
    @c = ("x$b");
}