C:\>perl
$, = ',';    
$var = 'a';
@test = glob("$var*");
print @test;