use Data::Dumper;
print Dumper $sb;
print Dumper $ct;
print Dumper $mt;
print Dumper $at;