>>284
sub _routine {
　my $self = {
　　a => 'value1',
　　b => 'value2',
　　c => '',
　　d => 'value4',
　};
　my $rv = '';
　$rv .= "$_: $self->{$_}\n" for sort grep length $self->{$_}, keys %$self;
　return $rv;
}
print _routine();