my $r = \$progress;
print("address of \$progress=$r\n");