use strict;

format Something =
@###.##
$a
.
my $ref_old_a = \$a;#this makes the first $a still touchable
my $a = 200; #declare the second $a
$$ref_old_a = 100;#touch the first one by ref
$~ = "Something";
write;#print out 100.00