use strict;
use warnings;

while (<DATA>) {

	print $_ * 2;

}
__DATA__
1,1
2,2
3,3