That's because qw doesn't interpolate variables. So change that line to

my @reg_addrs = ("$username\@domain1.com", "$username\@domain2.com");
[download]

and you're set.