+ my ($switch,$taste,$on) = @_ or die "parameters 00000 {a|b|c|d} {0|1}";
+ my %tasten = (
+ a => '0001010101',
+ b => '0100010101',
+ c => '0101000101',
+ d => '0101010001',
+ e => '0101010100',
+ );
+ my $data = {
+ aaaa=> ($on?'0001':'0100'),
+ bbbbbbbbbb=> $tasten{$taste},
+ };
+ my @switches = split //,$switch;
+ @switches = map { $_?'0':'1'} @switches;
+ @{$data}{qw/q w e r t/}=@switches;
+# print join ',',%$data;
+ return $data;
+}