use Probeset;  # that is my module
use Data::Dumper;

my $store = Data::Dumper -> Dump ([$probeset], [qw(probeset)]);
open (DUMP, "> $file);
print DUMP $store;
close DUMP;